home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / cnflib.dir < prev    next >
File List  |  1993-02-18  |  2KB  |  126 lines
  1. %%HP: T(3)A(D)F(.);
  2. DIR
  3.   SETUP
  4.     \<< CLLCD -13 CF
  5. "Processing:
  6. Workspace"
  7. 1 DISP VARS '\Gt' DUP
  8. CRDIR EVAL LIST\-> 2
  9. SWAP
  10.       START DUP
  11. \->STR 2 DISP DUP RCL
  12.         IF DUP TYPE
  13. 2 ==
  14.         THEN
  15.           IF DUP
  16. NUM 40 ==
  17.           THEN \->RPL
  18.           END
  19.         END SWAP
  20. STO
  21.       NEXT DROP
  22. "Library" 2 DISP
  23. D\->LIB
  24. "Cleanup...
  25.  
  26.  
  27.  
  28. " 1
  29. DISP -13 SF UPDIR
  30. '\Gt' PGDIR
  31.     \>>
  32.   $ROMID 4
  33.   $VISIBLE { }
  34.   $CONFIG
  35. "($CONFIG)
  36. ::
  37.  ID ABRT
  38.  41 TestSysFlag ?SKIP
  39.  CODE
  40.   AD0EX
  41.   D0=(5) #00101 Contrast register
  42.   LCHEX  07     HP def. = 0B
  43.   DAT0=C B
  44.   D0=A
  45. l LOOP
  46.  ENDCODE
  47.  CODE
  48. start
  49.   LC(5)  15+(end)-(start)
  50.   A=A+C  A
  51.   LC(5)  =FIRSTPROC
  52.   CD0EX
  53.   DAT0=A A
  54.   D0=C
  55.   GOTO   l
  56. end
  57.  ENDCODE
  58. ;"
  59.   ABRT
  60. "(ABRT)
  61. ::
  62.  ' ID NoCfg Sys@
  63.  NOT?SEMI
  64.  DUPTYPEREAL?
  65.  IT ONE{}N
  66.  DUPTYPELIST?
  67.  NOTcaseDROP
  68.  SWAPDUP
  69.  ZERO_DO
  70.   ISTOP-INDEX #2+
  71.   DUP#1+ ROLL
  72.   4PICKOVER UNCOERCE
  73.   EQUALPOSCOMP
  74.   #0=ITE
  75.   :: SWAP UNROLL
  76.   ;
  77.   :: TOSRRP DROP#1-
  78.   ;
  79.  LOOP
  80.  SWAPDROP
  81.  0 INDEXSTO
  82.  DUP#1+ ISTOPSTO
  83. ;"
  84.   INST
  85. "(INST)
  86. ASSEMBLE
  87. ONSRRP?   EQU #77C2
  88. EvalNoCK: EQU #18F6A
  89. RPL
  90. ::
  91.  ::
  92.   DATE
  93.   TOD % .00004 %HMS+
  94.   '
  95.   ::
  96.    PTR E724
  97.    { %9600
  98.      %0 %1 %1 %1 %3
  99.    }
  100.    ' ID IOPAR
  101.    ?STO_HERE
  102.    %2 InitMenu%
  103.    HISTON UNDO_ON
  104.    {
  105.     HXS 10 0FF0481900300803
  106.     HXS  1 0
  107.    }
  108.    EvalNoCK: xSTOF
  109.    1234 ONSRRP?
  110.    NOT?SEMI
  111.    ' ROMPTR 4D2 F (4/5/7)
  112.    ROMPTR@
  113.    case COLA_EVAL
  114.   ;
  115.   THREE{}N
  116.   PTR E54D DROP
  117.  ;
  118.  ERRTRAP NOP
  119.  
  120.  CODE
  121.   D0=(5) (=StartupProc)+5
  122.   LOOP
  123.  ENDCODE
  124. ;"
  125. END
  126.